home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / comm / www / IBrowseScripts.lha / ibrowsescripts / rexx / ib2yam.rexx < prev    next >
OS/2 REXX Batch file  |  1998-04-18  |  284b  |  16 lines
  1. /* IBrowse2Yam.rexx <email> - © 02-01-98 Sören Forsberg */
  2.  
  3. PARSE ARG rcpt
  4. echo rcpt
  5. IF ~SHOW('Ports','YAM') THEN DO
  6.   ADDRESS 'COMMAND'
  7.   'Run YAM:YAM NOCHECK'
  8.   'SYS:RexxC/WaitForPort YAM'
  9. END
  10. IF SHOW('Ports','YAM') THEN DO
  11.   ADDRESS 'YAM'
  12.   Show
  13.   MailWrite
  14.   WriteMailTo rcpt
  15. END
  16.